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PLEASE SEND ALL INQUIRIES AND 
SUBMISSIONS: INCLUDING DUES) 
TO; CL. Ja ST, 

HARVEY RAIT 
5 PERI LANE 

VALLEY STREAM,N.Y.11581 
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COMING EVENTS:THE NEXT L.I.S.T. 
MEETING WILL BE SUNDAY MAY 7 
AT 2 F.M.AT THE HOME OF HARVEY 
EAIT (SEE ADDRESS ABOVE). 
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REPORT ON THE MEETING OF APRIL 

9: 
THE MEETING STARTED ON TIME AT 
2:00 P.M. WITH 4 MEMBERS PRES- 
ENT. 
ONE NEW MEMBEKSHIP CAME IN AND 
WE TAKE THIS OPPORTUNITY TO 
WELCOME KENNETH HARBIT OF 
FRESNO CALIFORNIA. 
ONE INQUIRY WAS RECIEVED FROM 
ERIC HILL OF MILWAUKEE 
WISCONSIN,WHOSE QUESTIONS WILL 
BE ANSWERED. 
WE DECIDED 10 KEEP THE MEETING 
INFORMAL AND WOUND UP HAVING A 
ROUNDTABLE DISCUSSION OF 
VARIOUS TOPICS INCLUDING THE 
OBVIOUS MERITS OF THE SINCLAIR 
IN COMPARISON TO THE CURRENT 
PLETHORA OF SO CALLED ADVANCES 
IN THE COMPUTER WORLD TODAY. 

IT TURNS OUT THAT SO MANY OF 
THE CURRENT BALLYHOOED ADVANCES 
IN THE PC WORLD TODAY ARE 
MERELY VARIATIONS OF THINGS 
THAT WE HAVE BEEN DOING FOR 
YEARS WITH OUR Toys. 
BOB GILDER GAVE A DEMONSTRATION 
OF THE "EDITOR" PROGRAM TO SHOW 
HOW TO PRINT OUT A TWO COLUMN 
PAGE IN ONE PASS SIMILAR TO 
THIS PAGE.IT WAS A LITTLE 
COMPLICATED TO A NOVICE THAT 
NEVER USED THIS PROGRAM 
BEFORE,BUT BOB WHO USES IT ALL 
THE TIME MADE IT LOOK EASY. 
MEETING ADJOURNED AT 4:15. 
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LISTINGS FROM HARVEY R. 
KK X X X X Xx X X KK X X KO x K X Y£. x x x x 
FIRST OFF I WANT TO REPEAT THAT THE 
NEXT MEETING WILL BE ON MAY 7,WHICH 
IS THE FIRST SUNDAY OF THE MONTH 
INSTEAD OF THE SECOND SUNDAY BECAUSE 
OF MOTHERS DAY FALLING ON THE 14 th. 
IN GOING THROUGH MY "OLD STUFF” I 
CAME ACROSS A LABORATORY EXPERIMENT 
FROM MY COLLEGE DAYS WHICH WAS MY 
FIRST EXPOSURE TO COMPUTERS. 
THE COOPER UNiON DEPT. OF ELECTRICAL 
ENGINEERING, DATED %3/27/1961.TOPIC - 
ELECTRONIC ANALOGUE COMPUTER. 
THE PARAMETERS WERE SET UP IN 
INCREMENTAL STEPS TO PRODUCE RESULTS 
ON A STRIP CHART  RECORDER.THE 
PROBLEM CHOSEN WAS TO ANALYZE THE 
EFFECT OF THE DAMPING COEFFICIENT OF 
AN AUTOMOBILE'S SHOCK ABSORBER ON 
THE AUTOMOBILES TRANSLATIONAL MOTION 
WHEN RIDING OVER A RECURRENT BUMP. 
THE PARAMETERS WERE THAT THE BUMP 
WILL BE EQUIVALENT TO A DISPLACEMENT 
OF 0.2 ft AND LAST LAST FOR A 
DURATION OF 0.01 sec. 
DIFFERENTIAL EQUATIONS WERE SET UP 
USING SUCH PARAMETERS AS THE MASS OF 
THE  AUTO,THE MASS OF THE TIRE AND 
AXLE,THE LINEARIZED SPRING CONSTANT 
OF A PNEUMATIC TIRE,AND THE 
CONSTANTS ASSOCIATED WITH THE SHOCK 
ABSORBER DAMPING CONSTANT- 'C1'. 
CALIBRATED AMPLIFIERS WERE SET UP 
AND AN INPUT SIGNAL APPLIED. OUTPUTS 
WERE FED TO A STRIP RECORDER AND 
ANALYZED. 
ALL IN ALL THIS WAS A COMPLICATED 
SET-UP TO OBTAIN RESULTS. 
WHY? YOU MAY ASK AM I WRITING ABOUT 
THIS.I GUESS YOU WOULD HAVE HAD TO 
BE AROUND IN THE 50'S AND EARLY 60'S 
TO FULLY APPRECIATE THE BIRTH AND 
MATURATION OF THE DIGITAL COMPUTER 
AS WE NOW USE IT.THE 2K TS-1000 
COULD HAVE SOLVED THIS PROBLEM FAR 
MORE EFFICIENTLY AND EXPEDITIOUSLY 
THAN THE HOURS OF PREPARATION 
REQUIRED TO SOLVE THE STATED PROBLEM 
THAT WERE REQUIRED WITH AN ANALOGUE 
COMPUTER. 
A 16 YEAR OLD HACKER CAN NOW DO WHAT 
ONCE REQUIRED YEARS OF STUDIES IN 
PHYSICS AND DIFFERENTIAL ALGEBRA CAN 
WE REALLY LONG FOR THE MORE SIMPLE 
GOOD OLD DAYS?1 DONT KNOW THE ANSWER 
BUT I STILL KIND OF LOOK BACK WITH 


NOSTALGIA AND THINK OF CAR RADIOS 
THAT USED A VIBRATOR AND AN OZ4 TO 


GENERATE DC VOLTS. 
BY THE WAY I DID GEY AN "A" 
COURSE. 


IN THE 


QL CORNER 


During the past two months I have been reviewing some of the IQLR 
Freeware, Public Domain, Shareware Software which I had ordered from Bob 
Dyl at $2.5@ each.  IQLR-013, UNGIF allows you to review and save onto a 
QL diskette, GIF format screens which can be located on many bulletin 
boards which we can down load into our QL's. The software disk contains 
several weather maps in the GIF format that you can load into the UNGIF 
utility. 


The ENgif utility converts partial or complete QL screens to GIF files. 


The UNGIF utility requires several Pointer Interface files for this 
utility which ARE NOT supplied; HOT REXT, MENU REXT, WMAN and PTR GEN. A 
five page manual accompanies the UNGIP utility and a two page manual for 
the ENGIF utility. Both manual files have a 'txt' extension. If you 
don't have a text editor you can inport the files into Quill. 


To use the UNgif utility 'lrun' the BOOT file which is chained to 
BOOT UNgif. The Ungif BOOT stops at line 58, the last line in this file. 
Line 50: 50 EX ungif; drive name. Delete the drive_name and enter FLPl. 
(or any other drive designator) Neast2, gif (one of the gif files supplied 
with the program disk). Run the BOOT UNgif. Within several seconds the 
weather map for the North East section of the USA appears (I believe). 


uA 


BLURRIES 


COPYRIGHT ACCU-WEATHER IWC. 1994 


At this time, you should depress either the ESC, SPACE or ENTER key to 
enter the Main menu. (See the Main Menu screen dump). There are ten (190) 
Main Menu functions which can be activated with UP/DOWN cursor keys, 
pressing a letter at the right side of each function or a mouse if you 
have the mouse interface or serial mouse. ` 


The first function on the menu, QL screen mode : 4-colour. Pressing 
Space will toggle this line for 8-colour and again monochrome. After 
setting this function to another mode, say 8-colour, press  'R' (redraw 


GIF) and the screen will be redrawn with the 8-colour tones. Experiment 
with each of the three modes for the best picture display. 


The next function, T - Type of picture: monochrome can be changed to 
color or greytone by pressing the Space bar or a ‘Mit’. Again, 
experiment, using each of these modes by redrawing the picture. 


The third function L - Stipple level: Ø = 1xl can be changed to five 
different levels including ‘dither’ which provides 9 greytones, 64 
intensity levels or 1000 different stipple-levels in mode 8. Dither 
provides images of excellent quality and smoothness. It's really a fuzsy 
method to render a large number of intensities. 


V - Save-file type : SCR screen: foggling the space bar will set the 
screen extension to SCR, GIF or PIC. 


W - Edit the window defination: must be a CON. device. CON, 300 becomes 
300x180a32x16. 


X - Manual move and resize, redraw: Using the cursor keys (or mouse) 
will allow the screen size to be altered, then redrawn to the new size. 


S - Save screen as SCR-file: when this function is activated, delete the 
Screen name as appears and enter a new name and the 'scr' extension. 


Z - Use screen as wall-paper: I have not yet used this function! 
So, there you have it! If you are into developing a large screen shot 


library, then this program can be a blessing for you. At $2.50 for the 
program, it's a steal. 


Rr ` 
“DPTRIGHT RCCU-HERTHER INC. 1894 


See you next month... Bob Gilder 


HE DISPLAY will show a grid 
Ts 16 squares. The grid contains 
the first 15 lettersof thealpha- 
bet and one space. Slide the letters 
around in the grid, using the space, 
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Davies 1982 a 
INT AT 8.33; "ie PUZZLEA 
,*Choose your colcurs 
E PÉISDEMNLACGAMEDMIB “ 

t 4 
C$z"BBCDÉFGHIJUKLHNO " 


PAPER 


e, 
136 STEP 24: 
XT d 


iR n6 TO 18 STEP 
PRINT AT n.m»;a 


and the puzzle is solved when the 
letters are in their correct order. 

The letters are moved with the 
usual cursor controls and a count is 
kept of the moves taken. Your task is 
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NEXT m: NEXT n 
F_bs=c# THEN GO TO 442 


e 
PRINT AT. 
Play again. 

KEY$z"'" THEN GO TO 46a 
RT 21,2." 


PRINT AT 19,12;" "s 
IE 5089: GO TO 200 
OR uzi TO 


N 
<l THEN 
AT 2,15; 


Score so far:''; 


to complete the re-arrangement in as 
few moves as possible. A diverting 
little routine, worth having on tape. 
Submitted by W G Davies of Here- 
ford for the 16K Spectrum. 


4060: LET per: LET q- 


j7j*1: PRINT AT S3,15;j 
250 


"n 


2; "CORRECT": F 
` NEXT b 


Es cee 


21,2;"Press any ke 


G 


se 
LET $zq: 


N LET 


LET xzINT 
IF 
IF 
IF 
IF 


s=q +a: 
sa-a: 
rep-3: 
f =p +23: 


Sas 
RINT AT p,a; SCREENS Se 8); 


LET ass: RB 


4 


LET L 
“A 2j 


NEXT y: 


For TS 2067 
with ROH-SVITCH 


eii 
E FEEL as if we are lost in a ata EE 
Vw trackless maze, pursued by 929,9 EN 
vengeful ghosts and forced to 1118 Et 
consume endless quantities of your 1392 FH 
Spacman programs — but we like it. A Bo "Hi 
The latest breakthrough is from Dun- ise °: 
can Anderson of Bishops Frome, N ié $5 
Worcester, who has managed to incor- 298181 39 
porate power pills and intelligent “Oe t 
ghosts, which pursue you alternately “Ge 
with carnivorous cunning or flee from ve : 
you with the agility born of terror. The L9 NExT. 
maze is suitably spaghetti-like, Mr Pac- 76 7. 
man's jaws face forward, there are exits, To T: 
and a novel feature is the bomb you can Go SUB 2890 
leave behind you if the ghost’s icy 2: LEF et ct oe 
breath is too close on your collar. Din Hii EEE 
You have only one life in Spacman aero en Bee eee 
III and there are only two ghosts which za > gs mmm 
B-Em-.-.--- B: -B-- 


‘do not return to the centre when killed. LET : 
An additional problem is that the T dx 
ghost's direction finder becomes con- 
fused by corners. A possible way round 
the problem is to use only straight lines 
to form the walls of the maze, as do EE ders 
some of the commercial versions of the eom c ER Ma ee TUN 
game. PEL E ii: 11) === 
We would say this listing is a big leap bs: 
forward and we feel sure that there must 
be some Clive Sinclair clone who can I i n. 


put all the pieces together and supply us 229 té: ë . 

with the real thing (48K Spectrum). see 8 d'a TTT -o sm... 
Graphics notes: ud EB: = æ. B-B- 
88,540 etc—Graphic R. i dm a 
110—Dots are graphic. i65 Lee sisi) | amana 
420, etc—Graphic P. saute UT by =e29 


510, etc—Graphic L. 38$ LET ekzo 
520, etc—Graphic D. 


530, etc—Graphic U. 
2740, etc—Graphic G. SINCLAIR PROGRAMS March/April 1983 


360 LET b=@ 


370 LET PPXx-INT (RNDs2091): LET 
PPY=INT IRND33821) 
405558". bSiIPPx, PPY) =" THEN GO 
M ei: BORDER 1: PAPER 7: INK 1: C 


410 PRINT 


ae INI n 
¿RT 1@,1, INK 6; PRPER 1;"B",RhT 
10,21, INK 6, PAPER 1,"B" 

See IF INKEY$="" THEN GO TO sse 
aoe If INKEY$="S" THEN LET B$=” 
ac IF IMKEY$2"6" THEN LET »5$z-" 
v IF IMKÉY$2"7" THEN LET a$z" 

$406 IF INKEY$2"B" THEN LET a$»" 

$45 IF b=@ AND INMEY$2"9" THEN 
GO SUB 7eee 
T PRINT RT X,9;" ": LET b$t(x, 


9) 
see ir as="y" bgíx-21,9) co"B 


Me cu LET xex-1 


70 IF B$z"&A" AND b$!x»1,y)«050"B 
"OTHEN LET x=x+1 jas 
5506 IF n$-"€" AND b$íx,y+1) «;"BB 
` THEN LET uzu+1 
S585 IF B$-"5" h^ b$ix,y-212)«»o"B 
“ THEN LET ysy-2 

S9@ PRINT INK ©, AT x 13783; 


600 IF b$%(x, THEN LET $c 


BEEP “ets S: PRINT AT @,2; 


$C*1.: 

$Ct*bon 

610 IF sc#342 OR sc-784 OR scal 
226 OR $Cz16568 THEN GO TO <@@@ 


20 IF x1=9x2 AND 3 N 
GO SUB sds 9 9u1r9gy2 THE 
sos PRINT RT 9x2,992,b$!/9x2,992 


949 PRINT AT 9x1,991,5$(3x1,991 


lU 2 
AND g 
AND 
AND 
AND 


bii IF RND«.2 THEN FOR naw 
e: NEXT n: GO TO 


MT 
` 
v 
° 
ho 
x 
LU 
* 
> 
Ns we 


THEN LET 92 
IF pst 
THEN L 


HH n NNOO NONON 
IO 1 + O+ OC OC OC OC O 
MEC MMC RC KM o X OX HO 
patted N = pa w A e pa e ty 


"IAD AGADALALAdGAGA 
mv ite Mv bes iy Pie Mie 


332: INK 
diii. AT 


PUB" 
750 i igziex AND 99g1izy) (gx 
@=x AND g ) THEN gò 1o 96 ieee 


760 PRIN aa e,2;sc+bon 
265 IF ex»5 THÉN GO TO 780 
778 IF xz18 AND y=2 AND B$="9" 


THEN PRINT AT x,y; ": BORDER 6: 
BEEP .1,24: LET Y=30: BORDER 2: 
GO To’ 77$ 
775 IF xs1® AND yrze_AND 1.1 
THEN PRINT RT x BORDER 6 
. BEEP .1.2«- LET 9-2. BORDER 2. 
GO TO 776 


778 GO TO 7808 


779 LET exzsex$91: IF exoS THEN P 
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RINT ¿PT 18,231," 


49-ppy AND pp =@ 

1: GO SUB 2800 
982 
HE 


AND ((9xisbx AND 
R22zbx ARNO 9y2zby)) 
INK ©; PAPER 
n»24 fo -24 s 


AT is, 
= 


Sus ' "oo 
1008 PRINT ee jx 
; tök 


les, 

z PAPER 
LS_: PRINT AT 186,11; 
ORE:";$SC*bon 

1004 FOR n=e TO 199: BEEP 
Se: NEXT n 

1805 LET i09gosi1: GO TO 6 
2862 LET boneboneS: BORDER 2: 


e: INK e: c 
FLASH 3; “sc 
|.@1,n- 


ro 


R neie TO 20: BEEP .@5,n: NEXT N 

2180 FOR v-e TO 2e 

2500 IF INKEYS="" THEM GO TO 255 

$510 IF INKEYS="S~ THEN LET a$=" 

he IF INKEY$="6" THEN LET n$e” 

S550 IF INKEYS="7" THEN LET nse" 
S40 IF INKEYSe"6" THEN LET $=” 
SS@ PRINT AT x,9;" “: LET bStx, 


aB$z"W'' AND b3/r-1,92 "B 
“ THEN LET xzx-1 eee eee 
tino bS (x ,9*1) 
"AND b$ X ,y-21) 
xig INM 2;5 


HEN LET yzy 
ss, zr as="3" 


aY | 


>* 
2500 IF b$ (x )z"-*:" THEN LET sca 
$c+1: BEEP . 


20: PRINT AT 9,2; 
sc+bon 
SCORE PRINT AT 9x2,992,b$!9x2,992 
nee PRINT RT 9x1,991;b$(9x1,991 


bear ir RND« 3. THEM FOR n=@ TO 1 
@: NEX : GO TO 2700 
2659 ir bet x121 9y1) > U AND 9 
xi»x THEN LET 9xÍZ9x1+1 
2655 IF bsi x234 992) O B” AND 9 
x2>x THEN LET 9xŠ=9x2>+1 
2660 IF b$í9x1-1,991):2"BMl" AND 9 
THEN LET 9x4 29x1-3 
x2-1,992)«»"lM&* AND 9 
9xáz9x2-1 
IF bt%9(9x1,9%1+1) >” AND S 
29911 
IF _b$(9x2,9y291) "B" AND 9 
ET 9Y :9y2*1 
21415 )«»"Bf" AND s 
Vg1z991-1 
2,9y2-1) <>" AND 9 
9922992-1 
9x1,991; 
92; 


(9x1zx AN 2 
23 THEN GO Y 


2$>s SF Y:38 ano yese AND 

x= = " 

THEN PRINT AT x,U0; BESS” E 
24: LET y=2 

áBee NEXT w 

2908 BORDER @: FOR nee TO 3. eee 

B 12.9: BEEP .1,1. NEXT n; BORD 

2916 RETURN 

Seee PRINT AT BRIGHT 1; FLA 

5H i; INK 2; PAPER e. 


3010 FOR asi TO 3: FOR nei? TO 2 


4: BEEP .05,n: NEXT 
3029 LET bon zbon +25: K RINT AT e, 


$C*bon 
303i PRINT AT 9x32, 139259 (9x2.9v1 
);RT ger’ :992; b$ (gx 
3622 Cer’ SZIL INT! (RADiSe(1). LET 
TES (AND #3041): IF b$i9xi,9 
v T THEN GO 30 Seis 
KT PET XRsINT (RNDe2A0*21): LET 
NT (RND320$1); IF P$(9x2,9 
H THEN GO TO 3026 
925 RINT BT. pur INK 32° a 
x 3 
S050 RETURN 


000 LET scssceiee: BORDER 6: Ph 
PER 6: INK 

4620 PRINT AT 18.20; INK 2;"H" 
; t PRIHT AT ie, 
3, INK 6,” 

de BEE NE j 

4 29. FOR niis "46 24: péer .01.n: 
Peru FOR ("Eh TD 2 Wags -1. PRIN 
T AT 18,5; INK ©; "@ ` 10,443, 
INK 2; Ë e: BEEP .es, Se-i :'Next 


se GO TO 208 


Sees BORDER 4: LET bxsx: 
FOR n=@ TO 26: BEEP .e 
n: PRINT FT bx, by; INK 
LET bei: BORDER i 
7iee RETU 
goo LET baz: PRINT AT gx, by. FL 
ASH 3; INK 4; PRBER @;-&- I PÓn n 
=@ TO «G8: BEEP .@1l;,n: XT nh: PR 
INT AT bx, by; be (bx, uin LET bons 
«boni 
seie PRINT ie HER HERH b$19x1,991 
9x2, x 
aise PET? gY 126.1. LET 
GH SARDISO) 437 IF b$(9x1,9 
©“ THEN GO TO 8180 
168 LET 9x22INT |RNDe20)21: LET 


i (RND$230) +1. IF b9$(9x2,9 
1 " THEN GO TO 8188 
p ETURN 

O00 LET gxis#@-x: LET a 7 
sees IP iM xd d so eee 


roe’ 
FM X»19 THEN LET x»1 
IF b$(9x1,991) cd THEN RE 


RETUAN 
9800 LET a$=" SPACMAN 5 by DUNC 
AN ANDERSON `“ 

e BORDER 0: PAPER @: INK 6: C 


sees PRINT AT 10,6; “PRESS ANY KE 
v": PAUSE © 
sss IF tepon THEN 
9810 FOR nei TO 31: 
cer $(3 TO n): 
NEXT 


IE TURN 
BEEP .01, 
PRINT AT is; 3 


 ENSTUCT IONS: : 


a 

RI 5,6; INK d AT 7,6; INK 3 
NEEDS 
Sese „FOR Ate TO D$ P BRINT AT Seas 
$666 PRINT Sa AT 5,34; Svou- jar 7,24 
i "GMOST^; "bPouER PILL”; AT 
ETT Tbe ar DAY! 150996. -BOhB (PR 
S878 FOR ne-i8 TO «6. BEEP .i,n: 


xT 
9960 RETURN 


THE INVISIBLE TOOLKIT is a suite of fast 
efficient machine-code routines driven by a 
short Basic menu. Due to the fact that 
extensive use is made of routines already 
present in the Rom the machine-code is 
written in less than 800 bytes, which together 
with the Basic lines occupies less than 1800 
bytes of memory. 

The program was written to make it easier 
to modify and develop a Basic program and 
even combine two or more Basic programs 
— or routines — so that the idea of having a 
library of useful subroutines on cassette is 
quite feasible. In addition, the facility to 
create large Rems, or delete them at a stroke, 
is invaluable when assembling machine-code. 

The following routines are available: 

DOWN CODE — used after Up Code. 
Downloads the copy in upper memory into a 
specified line and Address. Space is auto- 
matically created. 

DOWN BASIC — used after Up Basic. 
Brings the Basic copy down into the Basic 
area placing it according to the first line 
number of the block. 

LINE ADDRESS — gives the address of 
the specified line number. The first character 
is four bytes further on. 

REM EXPAND — expands the Rem 
statement with the specified line number, 
from a specified address, by a given number of 
bytes. 

UP CODE — copies a given number of 
bytes from a given address, into upper 
memory. 


1. 
-- 
———— > 


THE INVISIBLE TOOLKIT 


Stuart Clarke presents a 
number of machine-code 
routines for the ZX-81 which 
are driven by a short Basic 
menu. 


UP BASIC — copies a block of Basic lines 
specified by first and last lines. 

BLOCK DELETE — specify first and last 
lines. 

RENUMBER BASIC — renumbers a 
block of Basic lines specified by first and last 
lines. You are allowed to specify both the 
Increment and the New first line number. All 
non-computed Gotos, Gosubs, and Runs will 
be correctly changed, provided the line 
number is in four-digit form, e.g., Goto 1 as 
Goto 0001. 

RENUMBER COPY — used after Up 
Basic. Only requires the Increment and New 
first line number to be specified. 

The order in which the routines are listed 
may seem a little odd, but this is as they 
appear in the menu. This is dictated by the 
use of relative rather than absolute jumps in 
the machine-code to allow it to be position 
independent, and the entire program has been 
written in such a way that, as well as the 
machine code, the Basic menu can be trans- 
ferred to upper memory — without over- 
writing existing upper memory contents — to 
allow the Loading of subsequent programs. 

When required, the menu can be recalled, 
and it will not clash with the existing Basic as 
its lines are numbered A222 to A239 — 10222 
to 10239. This is possible since the Rom 
checks the validity of a line number by only 
comparing the high byte with 40 decimal — 
40 times 256 equals 10240, the first ''non- 
valid" line number. 

However, line numbers in the range 10000 
to 11239 are only obtained by using the 
Renumber routine, as 9999 is the largest line 
you can enter direct from the keyboard. The 
menu lines are now tagged on to the end of the 
program you have just Loaded. 


Report codes. 
K/A234 you have attempted to 
use Down Code when no 
copy exists in upper 
memory. 

you have attempted to 
use Down Basic or 
Renumber Basic when: 
the "live" copy is not 
Basic. 


TIA233 


System variables. 

16388-16389 Ramtop 

16507-16508 Old Ramtop 

16444-16451 Poked by menu 

variable pointing to the 
first location in the "jump 
table” accessing the 
machine-code routines. 


ZX81 


If the typing seems a bit of a chore, just send 
your name and address with a cheque for £3 
made payable to Sarglen Software, to 147 
South Parks Road, Glenrothes, Fife, KY6 
INT, and I will send you a quality cassette 
with two copies each for machines with and 
without the "improved Rom”, together with 
an instruction leaflet. 

Type in program 1, then duplicate line 1 
using the Edit key so that you have 12 
identical lines, numbered 1 to 12. Now Run 
program 1. 

Type in program 2, and Run it. This is the 
hex loader. Enter the address 16544 — or the 


Program 1. 


3 REM ...... o. o.............. 


POKE 18511,68 


INPUT S 
LET R$z"" 
GOSUB 9152 
IF A = ** ** 
IF R$-"S" 


esin 
s 
N 
N 


18314" TO 17347 


THEN INPUT AS 
THEN STOP 


LET X=i16#CODE A$ CODE Ate 


LET AS=AE(3 
IF Cz5 THEN 
GOTO @e4e 


TO $ 
GOSUB QISA 


PRINT TARE 25:Y 


LET Y=@ 
LET Czea 


Program 3. 
200m er P 
ge LET Lapa O 
POKE 16444.F-256+INT (F/256 


16445, INT (P7256 
16446,L-2560INT xL ase. 


16227 INT (L72506) 
USR 1676 


USR 16522 
LET ZX81=PEEK 16388«256ePEE 
peat ia 


1 "ZXB1z"; 
T 5,6; “PEEK 165672" i PEEK 1 
T 7,0, PEEK 265082"; 


PF 
e P eT ` 
ied a 12,6;" RAND USR 
25,2 
mp AT.8/! (a 
aso FAST. 


9 PRINT AT @,18;° ae 
Fr "NT 2.0.1 ¿DN C -: LINE: 


Program 4. 
"TOOLKIT" 
16444,10222-2S55»INT (1 


16445, INT (1808222/258) 
16446, 108239-256+INT (1 


220 POKE 


appropriate address if you are resuming after a 
break — and enter the hex codes listed in 
figure 1. You may enter any number of bytes 
at a time, and the screen display should tally 
with figure 2. If you make a mistake input 
“S”, which will stop the program. To 
recommence, simply Goto 10, and enter your 
new starting address. 

When this is complete — and you should 
have Saved your program at several stages — 
Save the program thus far. 

If your ZX-81 has the “unimproved” Rom, 
identified by Print Peek 5404 giving 253, then 
you must enter the five Pokes in fig.2 before 
Saving and proceeding further. 

Type in program 3. This is most of the 
Basic required to transfer the code to upper 
memory and provide the operating menu. 
When you have Saved this, Run it. You 
should now have the menu on screen, so select 
8 — Renumber — and enter the numbers 290, 
460, 1, and 10222 in response to the prompts. 


¿RT ë 
kE 

M 

SR 

4,09 

AT 18,0 
: NEÚL 


Dose Ts] 


NrZ-04J0dmo- 


WOH :: 


6) 

572 POKE 16443¢Me2,INT (Z/256) 
300 NEXT M 
390 CLS 
400 IF N»s2 OR Nz9 THEN RAND USR 
Cs ke) 
410 Nzi OR Na2 OR Ns9 THEN R 
RND usR (ZX81 +535) 
420 LET ZX82zUSR (xs. MR. 

6 OR NeS THEN R 


“ADDRESS 
16 


OKE 16447 1202399/255) 
receee sete X81+18) 
16444, 
1845;6 


LET Ne 
SOTO sass 


Almost immediately, the menu lines will be 
renumbered from A222 to A239 — 10222 to 
10239. 

If all is well, type in program 4, the 
remaining Basic, and Save the program again. 
You are now ready to Save this, the final 
completed program in auto-run mode. To do 
this simply Run the program whilst recording 
in the usual way. When the program has 
Saved, you will find that the Basic program 
area has been cleared and the menu lines are 
now stored above Ramtop where they will 
remain until required. Similarly, this occurs 
when you Load the auto-run version. 

The Invisible Toolkit is now ready to use, 
so refer to the instructions and try it out. 

Using the toolkit is easy. After Loading, 


RAND USR (2X81 + 2) 


retrieves the Basic from above Ramtop, and 
Goto 10222 displays the menu. The first 
(continued on next page) 


een 


(continued from previous page) 


prompt requires you to input your selection — 
1 to 9 — and the next four prompts expect 
numerical input, for example line number, 
Address — or any number if the menu 
indicates a blank. : 

When you wish to Load another program 


Figure 1. 


16514 e@ GO Di @@ 53 =292 
16519 ee 76 76 =p SB soe 
16524 04 40 ED 53 7B #522 
16529 4 21 B1 40 CD #2495 
16534 AS 40 DS 3E Q2 =506 
16539 CD AS 40 CD RD =612 
16544 42 3D 20 F? C9 =685 
16549 23 4E 23 46 EB 2453 
16554 69 EB CS EB FD =933 
16559 E: Ci C5 71 23 =763 
16564 70 EB FD E9 2A =875 
16569 3C 40 CD 08 eS) =554 
16574 ES 2h 3E 40 23 2432 
16579 CD D8 O9 Di'CD =844 
16584 17 QR CS 2A O4 =280 
16589 4Q E5 2A 3E 40 =461 
16594 18 13 18 F5 21 2345 
16599 1 27 22 2B 4O =196 
16604 2A 64 40 ES CD 2546 
16609 BB Q5 EB CD DS =848 
16614 Q29 ES 2A 7B 48 2467 
16619 ED SB O4 40 CD z601 
16624 12 QR E1 ES C5 2664 
16629 28 CO SE O9 C1 =608 
16634 D1 E1 C5 ED BO  :1044 
16639 C1 C5 2A e2 480  -498 
15644 O9 22 O2 40 ED  z346 
16649 73 36 40 2A 36 =329 
16654 40 29 FS n7 ED =726 
16659 42 ED SB O4 48 2462 
18664 EB A? ED 52 44 2789 
16669 40 ED 5B 78 40  z592 
15674 2A 04 40 ED 53 2430 
16679 O4 40 1B 2B ED #2375 
16664 Bs 18 34 2A 3C #362 
16689 42 CD 08 O9 44 2562 
25554 4D CS ED 4D SE s=ëz2 
16699 48 2A 40 40 2B 2277 
15704 €5 CS CD SE O9 2798 
15709 Ci Ei CS 41 3E 2742 
16714 18 23 77 10 FC #449 
16239 18 12 18 81 18 219 
16724 81 18 DB 16 DF #616 
16729 18 24 18 28 18 #351 
15734 77 18 77 18 77 «42485 
15739 2A 3C 40 CD DB  z587 
16744 @9 Ci 28 CB 23 =280 
15749 23 SE 23 55 EB 2485 
168754 Q9 EB 72 2B 73 =516 
16759 2A 29 40 O9 22 7198 
16764 29 40 CS 2A 3C  s408 
18769 49 ED 4B 3E 49 =502 
16774 18 @3 CO B8 4G =480 
15779 CS DS ES CD C5 #18041 
16784 QE 2A O4 40 22 3-158 
>= 48 R? ED 42 =657 


16799 


on which to use the toolkit, there are a couple 
of things to remember. First make sure that 
the menu lines are back above Ramtop — if 
not, use Copy Basic to do so. Then note down 
the contents of locations 16507 and 16508, as 
you will need to restore them after Loading. 
Also, the variable ZX-81 will have to be 


16799 2A @2 40 87 ED =812 
15858904 42 22 82 40 ED 2483 
16809 73 36 40 2A 36 2329 
186814 4Q A7 ED 42 FS 2763 
16819 es ED 58 78 40 2524 
16824 EB A? ED 52 44 =789 
16629 4D 2A 36 48 ED 2474 
16834 73 5D 4@ ED 5B 2688 
16839 SD «40 ED Be Ei 795 
16844 C1 D1 DS EB ED #1087 
16849 BƏ Ei Di Ci C9 #21004 
16854 48 Q4 18 1E 18 2106 
16859 12 CD B8 40 C5 =6608 
16864 CD 60 OR 2A 29 =394 
16869 40 A7 Ci ED 42 =727 
16874 22 29 40 C9 FD 593 
16079 CB 0i EE FD CB =898 
16884 01 AG 18 52 FD 526 
16889 CB 01 AE FD CB s834 
168694 Q1 AB 21 7D 40 2389 
16899 FD CB Oi SE E5 2844 
16904 23 23 23 23 7E =266 
16909 FE FA 20 04 FD 2793 
1691« ce ei DE 7E FE 2606 
16919 76 Ci 23 28 1F 417 
16924 28 CS 7E CD B4 =751 
16929 07 7E FE EC 28 =663 
16934 25 FE ED 28 21 2601 
16939 FE F? 28 1D FD 823 
16944 ce ei SE 23 20 2365 
18949 DF E1 CD F2 O9 904 
16954 EB ED SB OC 4@ =639 
16959 A? ES ED S2 Ei 2940 
16964 26 O04 18 BB 185 2279 
16969 BG 18 3C 23 23 #336 
16974 23 23 23 ES 7E 2460 
16979 CO Bé 87 20 2D 2469 
16984 23 7E FE 76 20 =565 
16989 27 Ei ES FD CB 2949 
16994 @1 66 20 29 23 a221 
16999 7E 23 SE 23 58 =376 
170094 23 «E 23 46 CD =423 
17009 8D 15 CB Ei CD =789 
17014 DS ee 18 Ba 18 2278 
17019 BA ES Ci Ei 2B 8876 
17024 70 2B 71 18 Bi 8469 
17029 D1 18 AE FD CB #865 
17034 01 66 28 58 C9 =432 
17039 «428 S6 2B SE EB 501 


17091,28 
17110,201 


restored after Loading — also after Run and 
Clear, which are best avoided. 

After you have LOADed the program you 
intend to work on, and restored the system 
variables 16507 and 16508, and ZX-81 

RAND USR (ZX81 + 2) 
and away you go! 


CD BB ƏS 42 4B «538 
17949 CS CD 20 15 CD =660 
17054 Fe 13 Ci Ei ES =914 
17059 CS 23 77 23 73 =501 
17064 23 72 23 71 23 =332 
17089 70 Ci #1 2B 18 2597 
17074 @2 i8 93 16 Ə #199 
17079 ES DS CD 20 15 =700 
17084 EF CO 34 Oi OA =494 
17089 ee CD 20 15 EF =497 
17094 Ci eS 24 C2 Ei a653 
17099 @4 Fe 0i 23 E2 8458 
17104 34 CD A? eE CS =635 
17109 CO CD 15 Ci D1 =833 
17114 £1 C6 1C 77 2B 2613 
17119 15 20 O5 18 96 =440 
17124 18 CD 2A 7B 40 =458 
17129 22 46 40 2A O4 =214 
17134 40 FD CB Oi 6E =631 
17139 20 18 o0 99 oo =S6 
17144 00 Oe eo 2A SE =104 
17149 40 23 CD D8 O9 =529 
17154 22 46 40 2A 3C =270 
17159 40 CD De O9 OO =494 
17164 00 ED 4B 40 40  -44O 
17169 ED SB 42 40 C5 #655 
17174 DS Di Ci 7A FE «991 
17179 28 28 03 ii OF 121 
17184 27 72 23 73 2B «346 
17189 Em 29 EB CS DS =889 
17194 CD F2 09 EB ED =928 
1.199 SB 46 49 ñ? ES 26213 
17204 ED 52 Ei 20 DE 798 
17209 01 Di FD CB Oi 875 
17214 E6 FD CB Oi 6E 2797 
17219 CO i8 SE 21 FE 661 
17324 a7 CD SS 99 32 =594 
17229 23 SE 23 56 13 =269 
17234 13 72 2B 73 19 2316 
17239 2B @1 e2 ee CS =243 
17244 ES CD 9E O9 Di =610 
17249 C1 21 7B 40 ED =650 
17254 Be C9 CD 23 OF  -632 
17259 21 FE 27 CD DS 747 
17264 @9 23 23 SE 23 =208 
17269 56 DS 1B 1B 72 467 
17274 2B 73 Di DS 19 =6e5 
17279 7E PE ER 20 07 =653 
17284 D1 2B 72 28 73 =524 
17289 CF i3 Di 81 O2 =438 
17294 ee cS ii 7C 40 =482 
17299 €D Bs 23 Ci ES =878 
17304 ©9 EB Ei CD 6@ 2770 
17309 ©A C9 2^ 04 40 321 
17314 7E Fe 28 38 99 2477 
17319 2A 7B 40 2B 7E =398 
17324 FE 76 28 O2 CF =621 
17329 1C C9 O 


